home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Telecom / Scripts / ARA Modem Scripts / SupraFAXModem V.32bis < prev   
Text File  |  1992-02-29  |  3KB  |  197 lines

  1. ! "SupraFAXModem V.32bis  - 2/27/92"
  2. @ORIGINATE
  3. @ANSWER
  4. !
  5. @LABEL 1
  6. serreset 19200, 0, 8, 1
  7.  
  8. !
  9. ! first recall the factory configuration, and get the modem in enhanced command state
  10. !
  11. matchclr
  12. matchstr 1 4 "OK\13\10"
  13. write "AT &F1 \N0 &Q6 W1 \13"
  14. matchread 30
  15. jump 59
  16. !
  17. ! Next, Set up the configuration:
  18. !                Turn off auto answer and echo
  19. !
  20. @LABEL 4
  21. pause 5
  22. matchstr 1 6 "OK\13\10"
  23. write "AT S0=0 E0 \13"
  24. matchread 30
  25. jump 59
  26. !
  27. ! If speaker on flag is true, 
  28. @LABEL 6
  29. ifstr 2 8 "1"
  30. matchstr 1 8 "OK\13\10"
  31. write "AT M0\13"
  32. matchread 30
  33. jump 59
  34. !
  35. ! The modem is ready so enable answering, or originate a call
  36. !
  37. @LABEL 8
  38. pause 5
  39. ifANSWER 30
  40. note "Dialing ^1" 3
  41. write "AT S0=0 DT^1\13"
  42. !
  43. @LABEL 9
  44. matchstr 1 11 "CARRIER 1200\13\10"
  45. matchstr 2 12 "CARRIER 2400\13\10"
  46. matchstr 3 13 "CARRIER 4800\13\10"
  47. matchstr 4 14 "CARRIER 7200\13\10"
  48. matchstr 5 15 "CARRIER 9600\13\10"
  49. matchstr 6 16 "CARRIER 12000\13\10"
  50. matchstr 7 17 "CARRIER 14400\13\10"
  51. matchstr 8 50 "NO CARRIER\13\10"
  52. matchstr 9 50 "ERROR\13\10"
  53. matchstr 10 52 "NO DIALTONE\13\10"
  54. matchstr 11 53 "BUSY\13\10"
  55. matchstr 12 54 "NO ANSWER\13\10"
  56. matchread 700
  57. jump 59
  58. !
  59. @LABEL 11
  60. note "Communicating at 1200 bps." 2
  61. CommunicatingAt 1200
  62. jump 20
  63. !
  64. @LABEL 12
  65. note "Communicating at 2400 bps." 2
  66. CommunicatingAt 2400
  67. jump 20
  68. !
  69. @LABEL 13
  70. note "Communicating at 4800 bps." 2
  71. CommunicatingAt 4800
  72. jump 20
  73. !
  74. @LABEL 14
  75. note "Communicating at 7200 bps." 2
  76. CommunicatingAt 7200
  77. jump 20
  78. !
  79. @LABEL 15
  80. note "Communicating at 9600 bps." 2
  81. CommunicatingAt 9600
  82. jump 20
  83. !
  84. @LABEL 16
  85. note "Communicating at 12000 bps." 2
  86. CommunicatingAt 12000
  87. jump 20
  88. !
  89. @LABEL 17
  90. note "Communicating at 14400 bps." 2
  91. CommunicatingAt 14400
  92. jump 20
  93. !
  94. ! Now CONNECTed.  Change to Hardware Handshaking
  95. @LABEL 20  
  96. HSReset 0 1 0 0 0 0
  97. ifANSWER 22
  98. pause 30
  99. !
  100. ! Finished. Return with good results
  101. @LABEL 22
  102. exit 0
  103. !
  104. ! @ANSWER
  105. ! Set up the modem to answer
  106. @LABEL 30
  107. write "ATS0=1\13"
  108. matchstr 1 31 "OK\13\10"
  109. matchread 30
  110. jump 59
  111. !
  112. @LABEL 31
  113. matchstr 1  32 "RING\13\10"
  114. matchstr 2  11 "CARRIER 1200\13\10"
  115. matchstr 3  12 "CARRIER 2400\13\10"
  116. matchstr 4  13 "CARRIER 4800\13\10"
  117. matchstr 5     14 "CARRIER 7200\13\10"
  118. matchstr 6  15 "CARRIER 9600\13\10"
  119. matchstr 7     16 "CARRIER 12000\13\10"
  120. matchstr 8  17 "CARRIER 14400\13\10"
  121. matchstr 9  50 "NO CARRIER\13\10"
  122. matchstr 10    50 "ERROR\13\10"
  123. matchstr 11    52 "NO DIALTONE\13\10"
  124. matchstr 12    53 "BUSY\13\10"
  125. matchstr 13 54 "NO ANSWER\13\10"
  126. matchread 700
  127. jump 31
  128. !
  129. @LABEL 32
  130. userhook 1
  131. note "Answering phone…" 2
  132. jump 31
  133. !
  134. ! 50: error messages
  135. !
  136. @LABEL 50
  137. exit -6021
  138. !
  139. @LABEL 52
  140. exit -6020
  141. !
  142. @LABEL 53
  143. exit -6022
  144. !
  145. @LABEL 54
  146. exit -6023
  147. !
  148. @LABEL 59
  149. exit -6019
  150. !
  151. ! Hang up the modem
  152. !
  153. @HANGUP
  154. @LABEL 60
  155. settries 0
  156. HSReset 0 0 0 0 0 0 
  157. @LABEL 61
  158. write "ATH\13"
  159. matchclr
  160. matchstr 1 62 "NO CARRIER\13\10"
  161. matchstr 2 62 "OK\13\10"
  162. matchstr 3 62 "ERROR\13\10"
  163. matchread 30
  164. inctries
  165. iftries 3 62
  166. ! no response, try escape sequence
  167. pause 12
  168. write "+++"
  169. matchclr
  170. matchstr 1 61 "OK\13\10"
  171. matchread 18
  172. ! try dropping DTR
  173. DTRClear
  174. pause 15
  175. DTRSet
  176. pause 15
  177. jump 61
  178. !
  179. @LABEL 62
  180. ! recall the factory settings
  181. pause 15
  182. write "AT&F1\13"
  183. matchclr
  184. matchstr 1 63 "OK\13\10"
  185. matchread 30
  186. !
  187. @LABEL 63
  188. pause 5
  189. matchstr 1 64 "OK\13\10"
  190. write "ATS0=0\13"
  191. matchread 20
  192. !
  193. @LABEL 64
  194. exit 0
  195.  
  196.